home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue38 / Dynatab / DYNATAB6.DPR < prev   
Encoding:
Text File  |  1998-06-01  |  1.1 KB  |  46 lines
  1. {$APPTYPE CONSOLE}
  2. program DynaTab6;
  3. uses
  4.   DB, DBTables;
  5.  
  6. var
  7.   Customer,Orders: TTable;
  8.   LookupField: TStringField;
  9.   CustNo: TFloatField;
  10.  
  11. begin
  12.   Customer := TTable.Create(nil);
  13.   Orders := TTable.Create(nil);
  14.   try
  15.     Customer.DatabaseName := 'DBDEMOS';
  16.     Customer.TableName := 'CUSTOMER.DB';
  17.     Customer.Open;
  18.  
  19.     Orders.DatabaseName := 'DBDEMOS';
  20.     Orders.TableName := 'ORDERS.DB';
  21.  
  22.     CustNo := TFloatField.Create(Orders);
  23.     CustNo.FieldName := 'CustNo';
  24.     CustNo.DataSet := Orders;
  25.  
  26.     LookupField := TStringField.Create(Orders);
  27.     LookupField.FieldName := 'Customer Company';
  28.     LookupField.FieldKind := fkLookup; { default - fkData }
  29.     LookupField.DataSet := Orders;
  30.     LookupField.KeyFields := 'CustNo';
  31.     LookupField.LookupDataSet := Customer;
  32.     LookupField.LookupKeyFields := 'CustNo';
  33.     LookupField.LookupResultField := 'Company';
  34.  
  35.     Orders.Open;
  36.     writeln(LookupField.DisplayName,': (',CustNo.DisplayText,') ',
  37.             LookupField.DisplayText);
  38.     Orders.Close;
  39.     Customer.Close
  40.   finally
  41.     LookupField.Free;
  42.     CustNo.Free;
  43.     Orders.Free;
  44.     Customer.Free
  45.   end
  46. end.